function Fakt(N: in Natural) return Natural is
   
begin
   for I in 1..N loop
         
   end loop;
End Fakt;
